(set-fringe-mode): Work when updating

`default-frame-alist'.

diff --git a/lisp/fringe.el b/lisp/fringe.el
index c7be27b061f845c0dd0969d000e59358354ff52c..8ec6d142077c6bd36e6555a1a4b803e54506ec62 100644 (file)
--- a/lisp/fringe.el
+++ b/lisp/fringe.el
@@ -51,7 +51,9 @@ See `fringe-mode' for possible values and their effect."
   ;; Apply it to default-frame-alist.
   (let ((parameter (assq 'left-fringe default-frame-alist)))
     (if (consp parameter)
-       (setcdr parameter fringe-mode)
+       (setcdr parameter (if (consp fringe-mode)
+                             (car fringe-mode)
+                           fringe-mode))
       (setq default-frame-alist
            (cons (cons 'left-fringe (if (consp fringe-mode)
                                         (car fringe-mode)
@@ -59,7 +61,9 @@ See `fringe-mode' for possible values and their effect."
                  default-frame-alist))))
   (let ((parameter (assq 'right-fringe default-frame-alist)))
     (if (consp parameter)
-       (setcdr parameter fringe-mode)
+       (setcdr parameter (if (consp fringe-mode)
+                             (cdr fringe-mode)
+                           fringe-mode))
       (setq default-frame-alist
            (cons (cons 'right-fringe (if (consp fringe-mode)
                                          (cdr fringe-mode)